home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n07.arc / ENCORE.ARC / ENCORE.BAS < prev    next >
BASIC Source File  |  1991-03-27  |  10KB  |  139 lines
  1. 100 REM - BASIC PROGRAM TO CREATE ENCORE.COM  
  2. 110 CLS:PRINT "Creating ENCORE.COM  ": OPEN "ENCORE.COM  " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   120
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   120 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  7. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "ENCORE.COM   created successfully": SYSTEM
  17. 260 PRINT: PRINT "ENCORE.COM   is not valid!": END
  18. 270 DATA E9, 96,  4, 12,  0, F4,  1,  4, 13,  4, 19,  0,  0,  0,  0, BD,   37B
  19. 280 DATA  3,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 45,    48
  20. 290 DATA 6E, 63, 6F, 72, 65, 48, 65, 72, 65, BB,  3,  5,  1,  0,  0,  0,   45F
  21. 300 DATA  0,  0,  0,  0,  0, FB, 50,  6, B8, 40,  0, 8E, C0, 26, 8A, 26,   46D
  22. 310 DATA 17,  0,  7, 80, E4,  F, E4, 60, 24, 7F, 2E, 3A,  6,  8,  1, 75,   464
  23. 320 DATA  3, E9, F8,  0, 2E, 3A,  6,  A,  1, 75,  3, E9, 94,  0, 2E, 80,   500
  24. 330 DATA 3E, 1B,  1,  1, 75, 12, 3C,  1, 75,  E, E8, F1,  1, 2E, C6,  6,   476
  25. 340 DATA 1E,  1,  1, E8, 21,  1, 58, CF, FA, 9C, 2E, FF, 1E, 2D,  1, 2E,   58E
  26. 350 DATA 80, 3E, 11,  1,  1, 74,  2, 58, CF,  6, B8, 40,  0, 8E, C0, 26,   4E0
  27. 360 DATA A1, 1C,  0, 2E, 3B,  6, 19,  1, 75,  3,  7, 58, CF, 2E, A3, 19,   3D6
  28. 370 DATA  1, 57, 53, 2E, 8B, 3E,  F,  1, 2E, 3B, 3E, 12,  1, 72,  6, E8,   3CC
  29. 380 DATA FE,  0, EB, 38, 90, 2E, 83,  6,  F,  1,  5, 2E, A1,  B,  1, 2E,   486
  30. 390 DATA 89, 45,  3, 2E, C7,  6,  B,  1,  0,  0, B8, 40,  0, 8E, C0, 26,   444
  31. 400 DATA 8B, 1E, 1C,  0, 83, FB, 1E, 75,  3, BB, 3E,  0, 4B, 4B, 26, 8B,   519
  32. 410 DATA  7, 2E, 89,  5, 26, A0, 17,  0, 2E, 88, 45,  2, 5B, 5F,  7, 58,   3B6
  33. 420 DATA FA, CF, 2E, 80, 3E, 1E,  1,  1, 74, 24, 2E, 3A, 26,  9,  1, 74,   479
  34. 430 DATA  3, E9, 5A, FF, 2E, 80, 3E, 11,  1,  1, 75,  3, E8, A1,  0, 2E,   573
  35. 440 DATA C7,  6,  F,  1, BD,  3, 2E, 83, 3E, BB,  3,  0, 77,  5, E8, 76,   524
  36. 450 DATA  0, 58, CF, 57, 53, 1E, 8C, C8, 8E, D8, A1, BB,  3,  5, BD,  3,   6CD
  37. 460 DATA A3,  D,  1, E8, FD,  0, 1F, 5B, 5F, E8, 5B,  0, 2E, C7,  6,  B,   5B8
  38. 470 DATA  1,  0,  0, 58, FA, 2E, C6,  6, 1B,  1,  1, CF, 2E, 80, 3E, 1E,   443
  39. 480 DATA  1,  1, 74, CA, 2E, 3A, 26,  7,  1, 74,  3, E9,  0, FF, E8, 36,   553
  40. 490 DATA  0, 2E, 80, 3E, 11,  1,  1, 75,  6, E8, 44,  0, EB, 27, 90, E8,   530
  41. 500 DATA  B,  1, 2E, C7,  6,  B,  1,  0,  0, 2E, C7,  6,  F,  1, BD,  3,   2DE
  42. 510 DATA 2E, C6,  6, 11,  1,  1, 50, B8, 40,  0, 8E, C0, 26, A1, 1C,  0,   486
  43. 520 DATA 2E, A3, 19,  1,  7, 58, CF, E4, 61, 8A, E0,  C, 80, E6, 61, 8A,   725
  44. 530 DATA C4, E6, 61, FA, B0, 20, E6, 20, FB, 2E, 80, 36, 1E,  1,  1, C3,   79D
  45. 540 DATA FA, 2E, C6,  6, 11,  1,  0, FB, E8, C2,  0, E8, BF,  0, 2E, A1,   721
  46. 550 DATA  F,  1, 2E, A3,  D,  1, 2D, BD,  3, 2E, A3, BB,  3, C3, 9C, 2E,   4F8
  47. 560 DATA FF, 1E, 31,  1, 2E, FF,  6,  B,  1, 2E, 80, 3E, 1B,  1,  1, 73,   40A
  48. 570 DATA  1, CF, FB, 50, 57, 1E, 8C, C8, 8E, D8, A1,  B,  1, 3B,  6, 15,   64D
  49. 580 DATA  1, 72, 3C,  6, 53, B8, 40,  0, 8E, C0, 26, 8B, 1E, 1C,  0, 26,   45F
  50. 590 DATA 3B, 1E, 1A,  0, 75, 21, A1, 17,  1, 26, 89,  7, 43, 43, 83, FB,   47C
  51. 600 DATA 3E, 75,  3, BB, 1E,  0, 26, 89, 1E, 1C,  0, A0, 14,  1, 26, A2,   3F5
  52. 610 DATA 17,  0, 53, E8,  D,  0, 5B, C7,  6,  B,  1,  0,  0, 5B,  7, 1F,   314
  53. 620 DATA 5F, 58, CF, 8B, 3E,  F,  1, 8B,  5, A3, 17,  1, 8A, 45,  2, A2,   51D
  54. 630 DATA 14,  1, 8B, 45,  3, 3B,  6,  3,  1, 77,  2, 33, C0, A3, 15,  1,   352
  55. 640 DATA 83, C7,  5, 89, 3E,  F,  1, 3B, 3E,  D,  1, 77,  1, C3,  6, B8,   4A6
  56. 650 DATA 40,  0, 8E, C0, 2E, C7,  6,  F,  1, BD,  3, 2E, C6,  6, 1B,  1,   46F
  57. 660 DATA  0, 26, A0, 17,  0, 24, F0, 26, A2, 17,  0,  7, C3,  6, B8, 40,   498
  58. 670 DATA  0, 8E, C0, 26, A1, 6C,  0, 26, 39,  6, 6C,  0, 74, F9, 40, 2E,   52D
  59. 680 DATA A3, 1C,  1, B0, B6, E6, 43, B8,  0,  C, E6, 42, 8A, C4, E6, 42,   7B1
  60. 690 DATA E4, 61,  C,  3, E6, 61, 2E, A1, 1C,  1, 26, 3B,  6, 6C,  0, 74,   4CE
  61. 700 DATA F9, E4, 61, 24, FC, E6, 61,  7, C3,  0,  0,  0,  0,  0,  A, 45,   5BE
  62. 710 DATA 4E, 43, 4F, 52, 45, 20, 31, 2E, 30, 20, 43, 6F, 70, 79, 72, 69,   4BC
  63. 720 DATA 67, 68, 74, 20, 28, 63, 29, 20, 31, 39, 39, 31, 20, 5A, 69, 66,   454
  64. 730 DATA 66, 20, 43, 6F, 6D, 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73,   64F
  65. 740 DATA 20, 43, 6F, 2E,  D,  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E,   491
  66. 750 DATA 65, 20, 7E, 20, 53, 63, 6F, 74, 74, 20, 43, 68, 61, 6E, 65, 79,   5A8
  67. 760 DATA 20, 7E, 20, 52, 53, 45, 20, 49, 6E, 63,  D,  A,  A, 53, 79, 6E,   43D
  68. 770 DATA 74, 61, 78, 3A, 20, 45, 4E, 43, 4F, 52, 45, 20, 5B, 2F, 53, 5D,   4BD
  69. 780 DATA 20, 5B, 2F, 4C, 5D, 20, 5B, 2F, 55, 5D, 20, 5B, 2F, 4B, 6E, 2E,   440
  70. 790 DATA 2E, 2F, 42, 6E, 2E, 2E, 2F, 50, 5D,  D,  A, 20, 2F, 53, 20, 20,   33E
  71. 800 DATA 3D, 20, 53, 61, 76, 65, 20, 61, 20, 6B, 65, 79, 73, 74, 72, 6F,   59E
  72. 810 DATA 6B, 65, 20, 73, 65, 71, 75, 65, 6E, 63, 65, 20, 74, 6F, 20, 64,   5D0
  73. 820 DATA 69, 73, 6B,  D,  A, 20, 2F, 4C, 20, 20, 3D, 20, 4C, 6F, 61, 64,   416
  74. 830 DATA 20, 61, 20, 6B, 65, 79, 73, 74, 72, 6F, 6B, 65, 20, 73, 65, 71,   5EB
  75. 840 DATA 75, 65, 6E, 63, 65, 20, 28, 6D, 61, 63, 72, 6F, 29,  D,  A, 20,   4CA
  76. 850 DATA 2F, 55, 20, 20, 3D, 20, 55, 6E, 69, 6E, 73, 74, 61, 6C, 6C,  D,   4E8
  77. 860 DATA  A, 20, 2F, 4B, 6E, 20, 3D, 20, 43, 68, 61, 6E, 67, 65, 20, 73,   468
  78. 870 DATA 69, 7A, 65, 20, 6F, 66, 20, 6B, 65, 79, 73, 74, 72, 6F, 6B, 65,   63E
  79. 880 DATA 20, 62, 75, 66, 66, 65, 72,  D,  A, 20, 2F, 42, 6E, 20, 3D, 20,   42D
  80. 890 DATA 43, 68, 61, 6E, 67, 65, 20, 42, 6F, 6F, 73, 74, 20, 74, 68, 72,   5DB
  81. 900 DATA 65, 73, 68, 6F, 6C, 64, 20, 28, 69, 6E, 20, 63, 6C, 6F, 63, 6B,   5CA
  82. 910 DATA 20, 74, 69, 63, 6B, 73, 29,  D,  A, 20, 2F, 50, 20, 20, 3D, 20,   3BA
  83. 920 DATA 4D, 61, 6B, 65, 20, 63, 6F, 6D, 6D, 61, 6E, 64, 20, 6C, 69, 6E,   5E0
  84. 930 DATA 65, 20, 63, 68, 61, 6E, 67, 65, 73, 20, 70, 65, 72, 6D, 61, 6E,   601
  85. 940 DATA 65, 6E, 74,  D,  A, 43, 74, 72, 6C, 2D, 52, 20, 20, 20, 20, 20,   412
  86. 950 DATA 20, 20, 3D, 20, 52, 65, 63, 6F, 72, 64, 20, 6B, 65, 79, 73, 74,   54C
  87. 960 DATA 72, 6F, 6B, 65, 73,  D,  A, 43, 74, 72, 6C, 2D, 50, 20, 20, 20,   4AD
  88. 970 DATA 20, 20, 20, 20, 3D, 20, 50, 6C, 61, 79, 62, 61, 63, 6B, 20, 6B,   48F
  89. 980 DATA 65, 79, 73, 74, 72, 6F, 6B, 65, 73,  D,  A, 24,  A, 45, 6E, 63,   544
  90. 990 DATA 6F, 72, 65, 20, 69, 73, 20, 61, 6C, 72, 65, 61, 64, 79, 20, 6C,   5D0
  91. 1000 DATA 6F, 61, 64, 65, 64,  D,  A,  A, 24,  E, 1F, BB, 80,  0, 8A,  F,   443
  92. 1010 DATA 80, F9,  0, 74, 55, BE, 81,  0, 8A,  4, 46, 3C,  D, 74, 4B, 3C,   599
  93. 1020 DATA 2F, 74, F5, 3C, 20, 74, F1,  C, 20, 3C, 70, 75,  5, C6,  6, B9,   630
  94. 1030 DATA  3,  1, 3C, 6B, 75,  D, E8, EA,  0, BB,  5,  0, F7, E3, A3,  5,   641
  95. 1040 DATA  1, EB, D5, 3C, 6C, 75,  9, C6,  6, D1,  6,  1, 90, E9, 79,  1,   67E
  96. 1050 DATA 3C, 73, 75,  3, E9, 72,  1, 3C, 62, 75,  8, E8, C5,  0, A3,  3,   5F1
  97. 1060 DATA  1, EB, B5, 3C, 75, 75, B1, E9, 49,  2, E8, 23,  2, 75, 1E, B4,   700
  98. 1070 DATA  9, BA, 7C,  5, CD, 21, C6,  6, B1,  4, 24, BA, 1D,  4, B4,  9,   56F
  99. 1080 DATA CD, 21, BA, 35,  5, B4,  9, CD, 21, B4, 4C, CD, 21, 80, 3E, B9,   6F2
  100. 1090 DATA  3,  1, 75, 18, BA, 49,  7, B8,  2, 3D, CD, 21, 8B, D8, BA,  0,   59D
  101. 1100 DATA  1, B9,  7,  0, B4, 40, CD, 21, B4, 3E, CD, 21, B4,  9, BA, BE,   6B8
  102. 1110 DATA  3, CD, 21, 2E, A1, 2C,  0, 8E, C0, B4, 49, CD, 21, B8,  9, 35,   61B
  103. 1120 DATA CD, 21, 89, 1E, 2D,  1, 8C,  6, 2F,  1, B8, 1C, 35, CD, 21, 89,   505
  104. 1130 DATA 1E, 31,  1, 8C,  6, 33,  1, 2E, C7,  6, 64,  0,  0,  0, BB, BD,   3ED
  105. 1140 DATA  3,  3, 1E,  5,  1, 89, 1E,  D,  1, 89, 1E, 12,  1, B1,  4, D3,   321
  106. 1150 DATA EB, 83, EB,  A, 53, BE,  0,  1, B9, BD,  3, 2B, CE, BF, 60,  0,   706
  107. 1160 DATA 1E,  7, FC, F3, A4, 8C, D8, 2D,  A,  0, 8E, D8, B8,  9, 25, BA,   759
  108. 1170 DATA 35,  1, CD, 21, B8, 1C, 25, BA, CE,  2, CD, 21, 5A, 42, B8,  0,   5E9
  109. 1180 DATA 31, CD, 21, 33, C0, BB,  A,  0, 8A,  C, 80, F9, 30, 72, 11, 80,   619
  110. 1190 DATA F9, 39, 77,  C, F7, E3, 32, ED, 80, E9, 30,  3, C1, 46, EB, E8,   924
  111. 1200 DATA C3,  0,  D,  A, 45, 6E, 63, 6F, 72, 65, 20, 6E, 6F, 74, 20, 6C,   533
  112. 1210 DATA 6F, 61, 64, 65, 64,  D,  A, 24,  D,  A, 46, 69, 6C, 65, 20, 6E,   45D
  113. 1220 DATA 6F, 74, 20, 66, 6F, 75, 6E, 64,  D,  A, 24,  D,  A, 55, 6E, 61,   495
  114. 1230 DATA 62, 6C, 65, 20, 74, 6F, 20, 63, 72, 65, 61, 74, 65, 20, 66, 69,   5B9
  115. 1240 DATA 6C, 65, 2E,  D,  A, 24,  D,  A, 42, 75, 66, 66, 65, 72, 20, 74,   43F
  116. 1250 DATA 6F, 6F, 20, 73, 6D, 61, 6C, 6C,  D,  A, 24,  D,  A, 45, 6E, 63,   47F
  117. 1260 DATA 6F, 72, 65, 20, 69, 73, 20, 75, 6E, 69, 6E, 73, 74, 61, 6C, 6C,   63C
  118. 1270 DATA 65, 64,  D,  A, 24, 2E, 45, 4E, 43, 45, 4E, 43, 4F, 52, 45, 2E,   3F2
  119. 1280 DATA 43, 4F, 4D,  0,  0,  0,  0,  0,  0, BF, 49,  7, 8A,  4, 46, 3C,   2FE
  120. 1290 DATA  D, 74,  9, 3C, 20, 74, F5, 88,  5, 47, EB, F0, A1, 45,  7, 89,   674
  121. 1300 DATA  5, A1, 47,  7, 89, 45,  2, E8, A6,  0, 74,  B, BA, D2,  6, B4,   617
  122. 1310 DATA  9, CD, 21, B4, 4C, CD, 21, BE, 29,  1, B9,  4,  0, 26, 8A,  5,   53F
  123. 1320 DATA 88,  4, 46, 47, E2, F7, BA, 49,  7, 33, C9, B8,  2, 3D, 80, 3E,   6AD
  124. 1330 DATA D1,  6,  1, 74,  2, FE, CC, CD, 21, 73, 15, BA, E8,  6, 80, 3E,   6F4
  125. 1340 DATA D1,  6,  1, 74,  3, BA, FB,  6, B4,  9, CD, 21, B4, 4C, CD, 21,   6A3
  126. 1350 DATA 80, 3E, D1,  6,  1, 75, 40, 8B, D8, B9,  2,  0, B4, 3F, BA, 57,   66D
  127. 1360 DATA  7, CD, 21, 8B, 36, 2B,  1, 26, 8B,  4, 3B,  6, 57,  7, 73,  A,   3B3
  128. 1370 DATA BA, 16,  7, B4,  9, CD, 21, EB, 2F, 90, 33, C9, 8B, D1, B8,  0,   73C
  129. 1380 DATA 42, CD, 21, 8B,  E, 57,  7, 83, C1,  2, 8B, 16, 29,  1,  6, 1F,   45D
  130. 1390 DATA B4, 3F, CD, 21, EB, 12, 90, 50, 8B, 1E, 29,  1, 26, 8B,  F, 8B,   5DC
  131. 1400 DATA D3, 5B,  6, 1F, B4, 40, CD, 21, B4, 3E, CD, 21, B4, 4C, CD, 21,   703
  132. 1410 DATA BB, 1F,  1, FE,  6, 1F,  1, 8C, C8, BA, FF, 9F, 42, 8E, C2, 3B,   778
  133. 1420 DATA D0, 74,  C, 8B, F3, 8B, FB, B9,  A,  0, F3, A6, 75, EE, C3, 40,   916
  134. 1430 DATA 3B, C2, C3, E8, DA, FF, 75, 34, 26, 8B, 16, 2D,  1, 26, A1, 2F,   715
  135. 1440 DATA  1, 8E, D8, B8,  9, 25, CD, 21, 26, 8B, 16, 31,  1, 26, A1, 33,   52E
  136. 1450 DATA  1, 8E, D8, B8, 1C, 25, CD, 21, 8C, C0,  5,  A,  0, 8E, C0, B4,   6AB
  137. 1460 DATA 49, CD, 21,  E, 1F, BA, 2B,  7, B4,  9, CD, 21, B4, 4C, CD, 21,   5E9
  138. 1470 DATA 161623
  139.